"0","```r
par(mfrow=c(4,4), mar=c(3,3,2,0)+0.1)
for (i in 1:nrow(scpdSM)){
  plot(ecdf(scpdSM[i,]), xlab=\"\", ylab=\"\", xlim=c(1, 13), main=\"\", verticals=T, do.points=F, cex.axis=0.75)
  mtext(side=2, line=2, \"% of Species\", cex=0.5)
  mtext(side=3, line=0.5, paste0(\"Time=\", ages[i]), cex=0.75)
   mtext(side=1, line=2, \"% abundance\", cex=0.5)
}
```"
